home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / Magnum_Opus_2.2 / Modules / Screen-back.dopus5
Text File  |  1997-06-27  |  645b  |  29 lines
  1. /*
  2.  A small DOpus5 module that moves the screen to the back if you are running
  3.  Directory Opus 5 on its own screen.
  4.  
  5.  This *must* go in "DOpus5:Modules/" directory to work.
  6.  
  7. $VER: Screen_Back.dopus5 1.0 (13.04.97)
  8.  
  9. This is part of the freely distributable "Magnum Opus 2.0" © 1996-97 Richard Lane.
  10. */
  11.  
  12. parse arg portname function source dest arguments
  13. address value portname
  14. options results
  15.  
  16. if function = 'init' then do
  17.     dopus command "Screen_Back" program "Screen-back" desc "'Moves DOpus5 screen to the back'"
  18.     exit
  19.     end
  20.  
  21. if function='Screen_Back' then do
  22.     address DOPUS.1
  23.     DOPUS BACK
  24.     exit
  25.     end
  26.  
  27. /* and that's it :-)*/
  28.  
  29.